home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Business / Phone & Address Stuff / Phone Book / Phone Book Directions / background_2655.txt < prev    next >
Encoding:
Text File  |  1988-01-11  |  2.9 KB  |  139 lines
  1. -- background: 2655 from stack: in
  2. -- bmap block id: 3143
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: map & directions
  6. ----- HyperTalk script -----
  7. on domenu
  8.   put the mouseV into vloc
  9.   put the mouseH into Hloc
  10.   if vloc > 163 and vloc < 180 and hloc > 33 and hloc < 180
  11.   then
  12.   --set lockscreen to true
  13.   show background field "from phone"
  14.   show background field "from addr"
  15.   pass domenu
  16.   hide background field "from phone"
  17.   hide background field "from addr"
  18.   --set lockscreen to false
  19. else
  20.   pass domenu
  21. end if
  22. end domenu
  23.  
  24.  
  25.  
  26. -- part 1 (field)
  27. -- low flags: 00
  28. -- high flags: 4001
  29. -- rect: left=8 top=49 right=338 bottom=200
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 0
  33. -- font id: 3
  34. -- text size: 9
  35. -- style flags: 0
  36. -- line height: 12
  37. -- part name: written directions
  38.  
  39.  
  40. -- part 2 (field)
  41. -- low flags: 01
  42. -- high flags: 0000
  43. -- rect: left=308 top=19 right=36 bottom=512
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 0
  47. -- font id: 204
  48. -- text size: 12
  49. -- style flags: 0
  50. -- line height: 16
  51. -- part name: from name
  52.  
  53.  
  54. -- part 3 (field)
  55. -- low flags: 81
  56. -- high flags: 0001
  57. -- rect: left=2 top=264 right=280 bottom=215
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 0
  61. -- font id: 3
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: from card
  66.  
  67.  
  68. -- part 4 (button)
  69. -- low flags: 00
  70. -- high flags: 2000
  71. -- rect: left=476 top=307 right=342 bottom=512
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 9761 / 9761
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: return
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   put field "from card" into tocard
  83.   set lockscreen to true
  84.   if tocard is "home" then go to home
  85.   else
  86.     go to "hard disk:stackware:stacks 1:phone book"
  87.     go to tocard
  88.   end if
  89.   set lockscreen to false
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 5 (button)
  95. -- low flags: 00
  96. -- high flags: 0000
  97. -- rect: left=211 top=20 right=42 bottom=311
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: userlevel
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   set userlevel to 5
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 6 (field)
  114. -- low flags: 81
  115. -- high flags: 0001
  116. -- rect: left=252 top=294 right=306 bottom=465
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 0
  120. -- font id: 3
  121. -- text size: 9
  122. -- style flags: 0
  123. -- line height: 12
  124. -- part name: from phone
  125.  
  126.  
  127. -- part 7 (field)
  128. -- low flags: 81
  129. -- high flags: 0001
  130. -- rect: left=252 top=305 right=342 bottom=465
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 0
  134. -- font id: 3
  135. -- text size: 9
  136. -- style flags: 0
  137. -- line height: 12
  138. -- part name: from addr
  139.